home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / MorphOS / cvs-1.11.2 / contrib / rcs2log < prev    next >
Encoding:
Text File  |  2002-11-18  |  18.5 KB  |  726 lines
  1. #! /bin/sh
  2.  
  3. # RCS to ChangeLog generator
  4.  
  5. # Generate a change log prefix from RCS files (perhaps in the CVS repository)
  6. # and the ChangeLog (if any).
  7. # Output the new prefix to standard output.
  8. # You can edit this prefix by hand, and then prepend it to ChangeLog.
  9.  
  10. # Ignore log entries that start with `#'.
  11. # Clump together log entries that start with `{topic} ',
  12. # where `topic' contains neither white space nor `}'.
  13.  
  14. Help='The default FILEs are the files registered under the working directory.
  15. Options:
  16.  
  17.   -c CHANGELOG  Output a change log prefix to CHANGELOG (default ChangeLog).
  18.   -h HOSTNAME  Use HOSTNAME in change log entries (default current host).
  19.   -i INDENT  Indent change log lines by INDENT spaces (default 8).
  20.   -l LENGTH  Try to limit log lines to LENGTH characters (default 79).
  21.   -L FILE  Use rlog-format FILE for source of logs.
  22.   -R  If no FILEs are given and RCS is used, recurse through working directory.
  23.   -r OPTION  Pass OPTION to subsidiary log command.
  24.   -t TABWIDTH  Tab stops are every TABWIDTH characters (default 8).
  25.   -u "LOGIN<tab>FULLNAME<tab>MAILADDR"  Assume LOGIN has FULLNAME and MAILADDR.
  26.   -v  Append RCS revision to file names in log lines.
  27.   --help  Output help.
  28.   --version  Output version number.
  29.  
  30. Report bugs to <bug-gnu-emacs@gnu.org>.'
  31.  
  32. Id='$Id: rcs2log,v 1.48 2001/09/05 23:07:46 eggert Exp $'
  33.  
  34. # Copyright 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001
  35. #  Free Software Foundation, Inc.
  36.  
  37. # This program is free software; you can redistribute it and/or modify
  38. # it under the terms of the GNU General Public License as published by
  39. # the Free Software Foundation; either version 2, or (at your option)
  40. # any later version.
  41. #
  42. # This program is distributed in the hope that it will be useful,
  43. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  44. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  45. # GNU General Public License for more details.
  46. #
  47. # You should have received a copy of the GNU General Public License
  48. # along with this program; see the file COPYING.  If not, write to the
  49. # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  50. # Boston, MA 02111-1307, USA.
  51.  
  52. Copyright='Copyright 2001 Free Software Foundation, Inc.
  53. This program comes with NO WARRANTY, to the extent permitted by law.
  54. You may redistribute copies of this program
  55. under the terms of the GNU General Public License.
  56. For more information about these matters, see the files named COPYING.
  57. Author: Paul Eggert <eggert@twinsun.com>'
  58.  
  59. # Use the traditional C locale.
  60. LANG=C
  61. LANGUAGE=C
  62. LC_ALL=C
  63. LC_COLLATE=C
  64. LC_CTYPE=C
  65. LC_MESSAGES=C
  66. LC_NUMERIC=C
  67. LC_TIME=C
  68. export LANG LANGUAGE LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES LC_NUMERIC LC_TIME
  69.  
  70. # These variables each contain a single ASCII character.
  71. # Unfortunately, there's no portable way of writing these characters
  72. # in older Unix implementations, other than putting them directly into
  73. # this text file.
  74. SOH='' # SOH, octal code 001
  75. tab='    '
  76. nl='
  77. '
  78.  
  79. # Parse options.
  80.  
  81. # defaults
  82. : ${AWK=awk}
  83. : ${TMPDIR=/tmp}
  84. changelog=ChangeLog # change log file name
  85. datearg= # rlog date option
  86. hostname= # name of local host (if empty, will deduce it later)
  87. indent=8 # indent of log line
  88. length=79 # suggested max width of log line
  89. logins= # login names for people we know fullnames and mailaddrs of
  90. loginFullnameMailaddrs= # login<tab>fullname<tab>mailaddr triplets
  91. logTZ= # time zone for log dates (if empty, use local time)
  92. recursive= # t if we want recursive rlog
  93. revision= # t if we want revision numbers
  94. rlog_options= # options to pass to rlog
  95. rlogfile= # log file to read from
  96. tabwidth=8 # width of horizontal tab
  97.  
  98. while :
  99. do
  100.     case $1 in
  101.     -c)    changelog=${2?}; shift;;
  102.     -i)    indent=${2?}; shift;;
  103.     -h)    hostname=${2?}; shift;;
  104.     -l)    length=${2?}; shift;;
  105.     -L)    rlogfile=${2?}; shift;;
  106.     -[nu])    # -n is obsolescent; it is replaced by -u.
  107.         case $1 in
  108.         -n)    case ${2?}${3?}${4?} in
  109.             *"$tab"* | *"$nl"*)
  110.                 echo >&2 "$0: -n '$2' '$3' '$4': tabs, newlines not allowed"
  111.                 exit 1;;
  112.             esac
  113.             login=$2
  114.             lfm=$2$tab$3$tab$4
  115.             shift; shift; shift;;
  116.         -u)
  117.             # If $2 is not tab-separated, use colon for separator.
  118.             case ${2?} in
  119.             *"$nl"*)
  120.                 echo >&2 "$0: -u '$2': newlines not allowed"
  121.                 exit 1;;
  122.             *"$tab"*)
  123.                 t=$tab;;
  124.             *)
  125.                 t=':';;
  126.             esac
  127.             case $2 in
  128.             *"$t"*"$t"*"$t"*)
  129.                 echo >&2 "$0: -u '$2': too many fields"
  130.                 exit 1;;
  131.             *"$t"*"$t"*)
  132.                 uf="[^$t]*$t" # An unselected field, followed by a separator.
  133.                 sf="\\([^$t]*\\)" # The selected field.
  134.                 login=`expr "X$2" : "X$sf"`
  135.                 lfm="$login$tab"`
  136.                     expr "X$2" : "$uf$sf"
  137.                   `"$tab"`
  138.                     expr "X$2" : "$uf$uf$sf"
  139.                 `;;
  140.             *)
  141.                 echo >&2 "$0: -u '$2': not enough fields"
  142.                 exit 1;;
  143.             esac
  144.             shift;;
  145.         esac
  146.         case $logins in
  147.         '') logins=$login;;
  148.         ?*) logins=$logins$nl$login;;
  149.         esac
  150.         case $loginFullnameMailaddrs in
  151.         '') loginFullnameMailaddrs=$lfm;;
  152.         ?*) loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$lfm;;
  153.         esac;;
  154.     -r)
  155.         case $rlog_options in
  156.         '') rlog_options=${2?};;
  157.         ?*) rlog_options=$rlog_options$nl${2?};;
  158.         esac
  159.         shift;;
  160.     -R)    recursive=t;;
  161.     -t)    tabwidth=${2?}; shift;;
  162.     -v)    revision=t;;
  163.     --version)
  164.         set $Id
  165.         rcs2logVersion=$3
  166.         echo >&2 "rcs2log (GNU Emacs) $rcs2logVersion$nl$Copyright"
  167.         exit 0;;
  168.     -*)    echo >&2 "Usage: $0 [OPTION]... [FILE ...]$nl$Help"
  169.         case $1 in
  170.         --help) exit 0;;
  171.         *) exit 1;;
  172.         esac;;
  173.     *)    break;;
  174.     esac
  175.     shift
  176. done
  177.  
  178. month_data='
  179.     m[0]="Jan"; m[1]="Feb"; m[2]="Mar"
  180.     m[3]="Apr"; m[4]="May"; m[5]="Jun"
  181.     m[6]="Jul"; m[7]="Aug"; m[8]="Sep"
  182.     m[9]="Oct"; m[10]="Nov"; m[11]="Dec"
  183. '
  184.  
  185. logdir=$TMPDIR/rcs2log$$
  186. llogout=$logdir/l
  187. trap exit 1 2 13 15
  188. trap "rm -fr $logdir 2>/dev/null" 0
  189. (umask 077 && exec mkdir $logdir) || exit
  190.  
  191. # If no rlog-format log file is given, generate one into $rlogfile.
  192. case $rlogfile in
  193. '')
  194.     rlogfile=$logdir/r
  195.  
  196.     # If no rlog options are given,
  197.     # log the revisions checked in since the first ChangeLog entry.
  198.     # Since ChangeLog is only by date, some of these revisions may be duplicates of
  199.     # what's already in ChangeLog; it's the user's responsibility to remove them.
  200.     case $rlog_options in
  201.     '')
  202.         if test -s "$changelog"
  203.         then
  204.             e='
  205.                 /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{
  206.                     # ISO 8601 date
  207.                     print $1
  208.                     exit
  209.                 }
  210.                 /^... ... [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]:[0-9][0-9] [0-9]+ /{
  211.                     # old-fashioned date and time (Emacs 19.31 and earlier)
  212.                     '"$month_data"'
  213.                     year = $5
  214.                     for (i=0; i<=11; i++) if (m[i] == $2) break
  215.                     dd = $3
  216.                     printf "%d-%02d-%02d\n", year, i+1, dd
  217.                     exit
  218.                 }
  219.             '
  220.             d=`$AWK "$e" <"$changelog"` || exit
  221.             case $d in
  222.             ?*) datearg="-d>$d";;
  223.             esac
  224.         fi;;
  225.     esac
  226.  
  227.     # Use TZ specified by ChangeLog local variable, if any.
  228.     if test -s "$changelog"
  229.     then
  230.         extractTZ='
  231.             /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*"\([^"]*\)".*/{
  232.                 s//\1/; p; q
  233.             }
  234.             /^.*change-log-time-zone-rule['"$tab"' ]*:['"$tab"' ]*t.*/{
  235.                 s//UTC0/; p; q
  236.             }
  237.         '
  238.         logTZ=`tail "$changelog" | sed -n "$extractTZ"`
  239.         case $logTZ in
  240.         ?*) TZ=$logTZ; export TZ;;
  241.         esac
  242.     fi
  243.  
  244.     # If CVS is in use, examine its repository, not the normal RCS files.
  245.     if test ! -f CVS/Repository
  246.     then
  247.         rlog=rlog
  248.         repository=
  249.     else
  250.         rlog='cvs -q log'
  251.         repository=`sed 1q <CVS/Repository` || exit
  252.         test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
  253.         case $CVSROOT in
  254.         *:/*:/*)
  255.             echo >&2 "$0: $CVSROOT: CVSROOT has multiple ':/'s"
  256.             exit 1;;
  257.         *:/*)
  258.             # remote repository
  259.             pository=`expr "X$repository" : '.*:\(/.*\)'`;;
  260.         *)
  261.             # local repository
  262.             case $repository in
  263.             /*) ;;
  264.             *) repository=${CVSROOT?}/$repository;;
  265.             esac
  266.             if test ! -d "$repository"
  267.             then
  268.                 echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
  269.                 exit 1
  270.             fi
  271.             pository=$repository;;
  272.         esac
  273.  
  274.         # Ensure that $pository ends in exactly one slash.
  275.         while :
  276.         do
  277.             case $pository in
  278.             *//) pository=`expr "X$pository" : 'X\(.*\)/'`;;
  279.             */) break;;
  280.             *) pository=$pository/; break;;
  281.             esac
  282.         done
  283.  
  284.     fi
  285.  
  286.     # Use $rlog's -zLT option, if $rlog supports it.
  287.     case `$rlog -zLT 2>&1` in
  288.     *' option'*) ;;
  289.     *)
  290.         case $rlog_options in
  291.         '') rlog_options=-zLT;;
  292.         ?*) rlog_options=-zLT$nl$rlog_options;;
  293.         esac;;
  294.     esac
  295.  
  296.     # With no arguments, examine all files under the RCS directory.
  297.     case $# in
  298.     0)
  299.         case $repository in
  300.         '')
  301.             oldIFS=$IFS
  302.             IFS=$nl
  303.             case $recursive in
  304.             t)
  305.                 RCSdirs=`find . -name RCS -type d -print`
  306.                 filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||'
  307.                 files=`
  308.                     {
  309.                         case $RCSdirs in
  310.                         ?*) find $RCSdirs \
  311.                                 -type f \
  312.                                 ! -name '*_' \
  313.                                 ! -name ',*,' \
  314.                                 ! -name '.*_' \
  315.                                 ! -name .rcsfreeze.log \
  316.                                 ! -name .rcsfreeze.ver \
  317.                                 -print;;
  318.                         esac
  319.                         find . -name '*,v' -print
  320.                     } |
  321.                     sort -u |
  322.                     sed "$filesFromRCSfiles"
  323.                 `;;
  324.             *)
  325.                 files=
  326.                 for file in RCS/.* RCS/* .*,v *,v
  327.                 do
  328.                     case $file in
  329.                     RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
  330.                     RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
  331.                     RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue;;
  332.                     RCS/*,v | RCS/.*,v) ;;
  333.                     RCS/* | RCS/.*) test -f "$file" || continue;;
  334.                     esac
  335.                     case $files in
  336.                     '') files=$file;;
  337.                     ?*) files=$files$nl$file;;
  338.                     esac
  339.                 done
  340.                 case $files in
  341.                 '') exit 0;;
  342.                 esac;;
  343.             esac
  344.             set x $files
  345.             shift
  346.             IFS=$oldIFS;;
  347.         esac;;
  348.     esac
  349.  
  350.     case $datearg in
  351.     ?*) $rlog $rlog_options "$datearg" ${1+"$@"} >$rlogfile;;
  352.     '') $rlog $rlog_options ${1+"$@"} >$rlogfile;;
  353.     esac || exit;;
  354. esac
  355.  
  356.  
  357. # Get the full name of each author the logs mention, and set initialize_fullname
  358. # to awk code that initializes the `fullname' awk associative array.
  359. # Warning: foreign authors (i.e. not known in the passwd file) are mishandled;
  360. # you have to fix the resulting output by hand.
  361.  
  362. initialize_fullname=
  363. initialize_mailaddr=
  364.  
  365. case $loginFullnameMailaddrs in
  366. ?*)
  367.     case $loginFullnameMailaddrs in
  368.     *\"* | *\\*)
  369.         sed 's/["\\]/\\&/g' >$llogout <<EOF || exit
  370. $loginFullnameMailaddrs
  371. EOF
  372.         loginFullnameMailaddrs=`cat $llogout`;;
  373.     esac
  374.  
  375.     oldIFS=$IFS
  376.     IFS=$nl
  377.     for loginFullnameMailaddr in $loginFullnameMailaddrs
  378.     do
  379.         IFS=$tab
  380.         set x $loginFullnameMailaddr
  381.         login=$2
  382.         fullname=$3
  383.         mailaddr=$4
  384.         initialize_fullname="$initialize_fullname
  385.             fullname[\"$login\"] = \"$fullname\""
  386.         initialize_mailaddr="$initialize_mailaddr
  387.             mailaddr[\"$login\"] = \"$mailaddr\""
  388.     done
  389.     IFS=$oldIFS;;
  390. esac
  391.  
  392. case $logins in
  393. ?*)
  394.     sort -u -o $llogout <<EOF
  395. $logins
  396. EOF
  397.     ;;
  398. '')
  399.     : ;;
  400. esac >$llogout || exit
  401.  
  402. output_authors='/^date: / {
  403.     if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) {
  404.         print substr($5, 1, length($5)-1)
  405.     }
  406. }'
  407. authors=`
  408.     $AWK "$output_authors" <"$rlogfile" | sort -u | comm -23 - $llogout
  409. `
  410. case $authors in
  411. ?*)
  412.     cat >$llogout <<EOF || exit
  413. $authors
  414. EOF
  415.     initialize_author_script='s/["\\]/\\&/g; s/.*/author[\"&\"] = 1/'
  416.     initialize_author=`sed -e "$initialize_author_script" <$llogout`
  417.     awkscript='
  418.         BEGIN {
  419.             alphabet = "abcdefghijklmnopqrstuvwxyz"
  420.             ALPHABET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  421.             '"$initialize_author"'
  422.         }
  423.         {
  424.             if (author[$1]) {
  425.                 fullname = $5
  426.                 if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) {
  427.                     # Remove the junk from fullnames like "0000-Admin(0000)".
  428.                     fullname = substr(fullname, index(fullname, "-") + 1)
  429.                     fullname = substr(fullname, 1, index(fullname, "(") - 1)
  430.                 }
  431.                 if (fullname ~ /,[^ ]/) {
  432.                     # Some sites put comma-separated junk after the fullname.
  433.                     # Remove it, but leave "Bill Gates, Jr" alone.
  434.                     fullname = substr(fullname, 1, index(fullname, ",") - 1)
  435.                 }
  436.                 abbr = index(fullname, "&")
  437.                 if (abbr) {
  438.                     a = substr($1, 1, 1)
  439.                     A = a
  440.                     i = index(alphabet, a)
  441.                     if (i) A = substr(ALPHABET, i, 1)
  442.                     fullname = substr(fullname, 1, abbr-1) A substr($1, 2) substr(fullname, abbr+1)
  443.                 }
  444.  
  445.                 # Quote quotes and backslashes properly in full names.
  446.                 # Do not use gsub; traditional awk lacks it.
  447.                 quoted = ""
  448.                 rest = fullname
  449.                 for (;;) {
  450.                     p = index(rest, "\\")
  451.                     q = index(rest, "\"")
  452.                     if (p) {
  453.                         if (q && q<p) p = q
  454.                     } else {
  455.                         if (!q) break
  456.                         p = q
  457.                     }
  458.                     quoted = quoted substr(rest, 1, p-1) "\\" substr(rest, p, 1)
  459.                     rest = substr(rest, p+1)
  460.                 }
  461.  
  462.                 printf "fullname[\"%s\"] = \"%s%s\"\n", $1, quoted, rest
  463.                 author[$1] = 0
  464.             }
  465.         }
  466.     '
  467.  
  468.     initialize_fullname=`
  469.         {
  470.             (getent passwd $authors) ||
  471.             (
  472.                 cat /etc/passwd
  473.                 for author in $authors
  474.                 do NIS_PATH= nismatch $author passwd.org_dir
  475.                 done
  476.                 ypmatch $authors passwd
  477.             )
  478.         } 2>/dev/null |
  479.         $AWK -F: "$awkscript"
  480.     `$initialize_fullname;;
  481. esac
  482.  
  483.  
  484. # Function to print a single log line.
  485. # We don't use awk functions, to stay compatible with old awk versions.
  486. # `Log' is the log message.
  487. # `files' contains the affected files.
  488. printlogline='{
  489.  
  490.     # Following the GNU coding standards, rewrite
  491.     #    * file: (function): comment
  492.     # to
  493.     #    * file (function): comment
  494.     if (Log ~ /^\([^)]*\): /) {
  495.         i = index(Log, ")")
  496.         filefunc = substr(Log, 1, i)
  497.         while ((j = index(filefunc, "\n"))) {
  498.             files = files " " substr(filefunc, 1, j-1)
  499.             filefunc = substr(filefunc, j+1)
  500.         }
  501.         files = files " " filefunc
  502.         Log = substr(Log, i+3)
  503.     }
  504.  
  505.     # If "label: comment" is too long, break the line after the ":".
  506.     sep = " "
  507.     i = index(Log, "\n")
  508.     if ('"$length"' <= '"$indent"' + 1 + length(files) + i) sep = "\n" indent_string
  509.  
  510.     # Print the label.
  511.     printf "%s*%s:", indent_string, files
  512.  
  513.     # Print each line of the log.
  514.     while (i) {
  515.         logline = substr(Log, 1, i-1)
  516.         if (logline ~ /[^'"$tab"' ]/) {
  517.             printf "%s%s\n", sep, logline
  518.         } else {
  519.             print ""
  520.         }
  521.         sep = indent_string
  522.         Log = substr(Log, i+1)
  523.         i = index(Log, "\n")
  524.     }
  525. }'
  526.  
  527. # Pattern to match the `revision' line of rlog output.
  528. rlog_revision_pattern='^revision [0-9]+\.[0-9]+(\.[0-9]+\.[0-9]+)*(['"$tab"' ]+locked by: [^'"$tab"' $,.0-9:;@]*[^'"$tab"' $,:;@][^'"$tab"' $,.0-9:;@]*;)?['"$tab"' ]*$'
  529.  
  530. case $hostname in
  531. '')
  532.     hostname=`(
  533.         hostname || uname -n || uuname -l || cat /etc/whoami
  534.     ) 2>/dev/null` || {
  535.         echo >&2 "$0: cannot deduce hostname"
  536.         exit 1
  537.     }
  538.  
  539.     case $hostname in
  540.     *.*) ;;
  541.     *)
  542.         domainname=`(domainname) 2>/dev/null` &&
  543.         case $domainname in
  544.         *.*) hostname=$hostname.$domainname;;
  545.         esac;;
  546.     esac;;
  547. esac
  548.  
  549.  
  550. # Process the rlog output, generating ChangeLog style entries.
  551.  
  552. # First, reformat the rlog output so that each line contains one log entry.
  553. # Transliterate \n to SOH so that multiline entries fit on a single line.
  554. # Discard irrelevant rlog output.
  555. $AWK '
  556.     BEGIN {
  557.         pository = "'"$pository"'"
  558.         SOH="'"$SOH"'"
  559.     }
  560.     /^RCS file: / {
  561.         if (pository != "") {
  562.             filename = substr($0, 11)
  563.             if (substr(filename, 1, length(pository)) == pository) {
  564.                 filename = substr(filename, length(pository) + 1)
  565.             }
  566.             if (filename ~ /,v$/) {
  567.                 filename = substr(filename, 1, length(filename) - 2)
  568.             }
  569.             if (filename ~ /(^|\/)Attic\/[^\/]*$/) {
  570.                 i = length(filename)
  571.                 while (substr(filename, i, 1) != "/") i--
  572.                 filename = substr(filename, 1, i - 6) substr(filename, i + 1)
  573.             }
  574.         }
  575.         rev = "?"
  576.     }
  577.     /^Working file: / { if (repository == "") filename = substr($0, 15) }
  578.     /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ {
  579.         line = $0
  580.         if (line ~ /'"$rlog_revision_pattern"'/) {
  581.             rev = $2
  582.             next
  583.         }
  584.         if (line ~ /^date: [0-9][- +\/0-9:]*;/) {
  585.             date = $2
  586.             if (date ~ /\//) {
  587.                 # This is a traditional RCS format date YYYY/MM/DD.
  588.                 # Replace "/"s with "-"s to get ISO format.
  589.                 newdate = ""
  590.                 while ((i = index(date, "/")) != 0) {
  591.                     newdate = newdate substr(date, 1, i-1) "-"
  592.                     date = substr(date, i+1)
  593.                 }
  594.                 date = newdate date
  595.             }
  596.             time = substr($3, 1, length($3) - 1)
  597.             author = substr($5, 1, length($5)-1)
  598.             printf "%s%s%s%s%s%s%s%s%s%s", filename, SOH, rev, SOH, date, SOH, time, SOH, author, SOH
  599.             rev = "?"
  600.             next
  601.         }
  602.         if (line ~ /^branches: /) { next }
  603.         if (line ~ /^(-----------*|===========*)$/) { print ""; next }
  604.         if (line == "Initial revision" || line ~ /^file .+ was initially added on branch .+\.$/) {
  605.             line = "New file."
  606.         }
  607.         printf "%s%s", line, SOH
  608.     }
  609. ' <"$rlogfile" |
  610.  
  611. # Now each line is of the form
  612. # FILENAME@REVISION@YYYY-MM-DD@HH:MM:SS[+-TIMEZONE]@AUTHOR@LOG
  613. #    where @ stands for an SOH (octal code 001),
  614. #    and each line of LOG is terminated by SOH instead of \n.
  615. # Sort the log entries, first by date+time (in reverse order),
  616. # then by author, then by log entry, and finally by file name and revision
  617. # (just in case).
  618. sort -t"$SOH" +2 -4r +4 +0 |
  619.  
  620. # Finally, reformat the sorted log entries.
  621. $AWK -F"$SOH" '
  622.     BEGIN {
  623.         logTZ = "'"$logTZ"'"
  624.         revision = "'"$revision"'"
  625.  
  626.         # Initialize the fullname and mailaddr associative arrays.
  627.         '"$initialize_fullname"'
  628.         '"$initialize_mailaddr"'
  629.  
  630.         # Initialize indent string.
  631.         indent_string = ""
  632.         i = '"$indent"'
  633.         if (0 < '"$tabwidth"')
  634.             for (;  '"$tabwidth"' <= i;  i -= '"$tabwidth"')
  635.                 indent_string = indent_string "\t"
  636.         while (1 <= i--)
  637.             indent_string = indent_string " "
  638.     }
  639.  
  640.     {
  641.         newlog = ""
  642.         for (i = 6; i < NF; i++) newlog = newlog $i "\n"
  643.  
  644.         # Ignore log entries prefixed by "#".
  645.         if (newlog ~ /^#/) { next }
  646.  
  647.         if (Log != newlog || date != $3 || author != $5) {
  648.  
  649.             # The previous log and this log differ.
  650.  
  651.             # Print the old log.
  652.             if (date != "") '"$printlogline"'
  653.  
  654.             # Logs that begin with "{clumpname} " should be grouped together,
  655.             # and the clumpname should be removed.
  656.             # Extract the new clumpname from the log header,
  657.             # and use it to decide whether to output a blank line.
  658.             newclumpname = ""
  659.             sep = "\n"
  660.             if (date == "") sep = ""
  661.             if (newlog ~ /^\{[^'"$tab"' }]*}['"$tab"' ]/) {
  662.                 i = index(newlog, "}")
  663.                 newclumpname = substr(newlog, 1, i)
  664.                 while (substr(newlog, i+1) ~ /^['"$tab"' ]/) i++
  665.                 newlog = substr(newlog, i+1)
  666.                 if (clumpname == newclumpname) sep = ""
  667.             }
  668.             printf sep
  669.             clumpname = newclumpname
  670.  
  671.             # Get ready for the next log.
  672.             Log = newlog
  673.             if (files != "")
  674.                 for (i in filesknown)
  675.                     filesknown[i] = 0
  676.             files = ""
  677.         }
  678.         if (date != $3  ||  author != $5) {
  679.             # The previous date+author and this date+author differ.
  680.             # Print the new one.
  681.             date = $3
  682.             time = $4
  683.             author = $5
  684.  
  685.             zone = ""
  686.             if (logTZ && ((i = index(time, "-")) || (i = index(time, "+"))))
  687.                 zone = " " substr(time, i)
  688.  
  689.             # Print "date[ timezone]  fullname  <email address>".
  690.             # Get fullname and email address from associative arrays;
  691.             # default to author and author@hostname if not in arrays.
  692.             if (fullname[author])
  693.                 auth = fullname[author]
  694.             else
  695.                 auth = author
  696.             printf "%s%s  %s  ", date, zone, auth
  697.             if (mailaddr[author])
  698.                 printf "<%s>\n\n", mailaddr[author]
  699.             else
  700.                 printf "<%s@%s>\n\n", author, "'"$hostname"'"
  701.         }
  702.         if (! filesknown[$1]) {
  703.             filesknown[$1] = 1
  704.             if (files == "") files = " " $1
  705.             else files = files ", " $1
  706.             if (revision && $2 != "?") files = files " " $2
  707.         }
  708.     }
  709.     END {
  710.         # Print the last log.
  711.         if (date != "") {
  712.             '"$printlogline"'
  713.             printf "\n"
  714.         }
  715.     }
  716. ' &&
  717.  
  718.  
  719. # Exit successfully.
  720.  
  721. exec rm -fr $logdir
  722.  
  723. # Local Variables:
  724. # tab-width:4
  725. # End:
  726.